(rmail-decode-babyl-format): Disable undo around the decode-coding-region call.

diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el
index 8da949e59c389ba32438f20e78afa903c65a438d..118a39d331d80c3e578edf4ae39549e0aa678af0 100644 (file)
--- a/lisp/mail/rmail.el
+++ b/lisp/mail/rmail.el
@@ -790,7 +790,8 @@ Note:    it means the file has no messages in it.\n\^_")))
     (unless (memq coding-system
                  '(undecided undecided-unix))
       (set-buffer-modified-p t)                ; avoid locking when decoding
-      (decode-coding-region from to coding-system)
+      (let ((buffer-undo-list t))
+       (decode-coding-region from to coding-system))
       (setq coding-system last-coding-system-used))
     (set-buffer-modified-p modifiedp)
     (setq buffer-file-coding-system nil)